home *** CD-ROM | disk | FTP | other *** search
/ Urabon Golden Age Girl 2 / Urabon Golden Age Girl 2.iso / mac / 裏ガール２data / ATUI.DIR / 00063.ls < prev    next >
Encoding:
Text File  |  1995-01-01  |  822 b   |  38 lines
  1. on enlargement
  2.   global frag, myv, myho, myw, myhi, myl, myt
  3.   puppetSprite(11, 1)
  4.   set newho to ((320 - myho) * 2) + 320
  5.   set neww to ((225 - myv) * 2) + 225
  6.   put newho
  7.   if newho < (640 - myw) then
  8.     set newho to 640 - myw
  9.   end if
  10.   if newho > myw then
  11.     set newho to myw
  12.   end if
  13.   put newho
  14.   set the locH of sprite 11 to newho
  15.   put neww
  16.   if neww < (480 - myhi) then
  17.     set neww to 480 - myhi
  18.   end if
  19.   if neww > myhi then
  20.     set neww to myhi
  21.   end if
  22.   put neww
  23.   set the locV of sprite 11 to neww
  24.   set the height of sprite 11 to myhi * 2
  25.   set the width of sprite 11 to myw * 2
  26.   updateStage()
  27.   set frag to 1
  28. end
  29.  
  30. on small
  31.   global frag, myv, myho, myw, myhi, myl, myt
  32.   set the height of sprite 11 to myhi
  33.   set the width of sprite 11 to myw
  34.   updateStage()
  35.   set frag to 0
  36.   puppetSprite(11, 0)
  37. end
  38.